/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / backquote.elc.z / backquote.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 37 3a 31 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:14 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 70 | 72 69 6d 2f 62 61 63 6b |3/lisp/p|rim/back|
|000000a0| 71 75 6f 74 65 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |quote.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 33 20 |cs versi|on 20.3 |
|000000c0| 22 56 61 74 69 63 61 6e | 20 43 69 74 79 22 20 58 |"Vatican| City" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 62 61 63 6b 71 |  (error| "`backq|
|000001f0| 75 6f 74 65 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |uote.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 11 c1 5c 6e | 42 12 c3 14 c4 5c 6e 42 |e "...\n|B....\nB|
|00000270| 12 c5 16 06 c6 5c 6e 42 | 12 c7 16 08 c8 5c 6e 42 |.....\nB|.....\nB|
|00000280| 12 c9 16 5c 6e ca 5c 6e | 42 12 c3 c0 4d 87 22 20 |...\n.\n|B...M." |
|00000290| 5b 62 61 63 6b 71 75 6f | 74 65 20 62 71 2d 62 61 |[backquo|te bq-ba|
|000002a0| 63 6b 71 75 6f 74 65 2d | 6d 61 72 6b 65 72 20 63 |ckquote-|marker c|
|000002b0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|000002c0| 20 5c 60 20 62 71 2d 62 | 61 63 6b 74 69 63 6b 2d | \` bq-b|acktick-|
|000002d0| 6d 61 72 6b 65 72 20 5c | 2c 20 62 71 2d 63 6f 6d |marker \|, bq-com|
|000002e0| 6d 61 2d 6d 61 72 6b 65 | 72 20 5c 2c 40 20 62 71 |ma-marke|r \,@ bq|
|000002f0| 2d 61 74 2d 6d 61 72 6b | 65 72 20 5c 2c 5c 2e 20 |-at-mark|er \,\. |
|00000300| 62 71 2d 64 6f 74 2d 6d | 61 72 6b 65 72 5d 20 32 |bq-dot-m|arker] 2|
|00000310| 29 0a 23 40 32 36 34 31 | 20 45 78 70 61 6e 64 20 |).#@2641| Expand |
|00000320| 74 68 65 20 69 6e 74 65 | 72 6e 61 6c 20 72 65 70 |the inte|rnal rep|
|00000330| 72 65 73 65 6e 74 61 74 | 69 6f 6e 20 6f 66 20 61 |resentat|ion of a|
|00000340| 20 62 61 63 6b 71 75 6f | 74 65 64 20 54 45 4d 50 | backquo|ted TEMP|
|00000350| 4c 41 54 45 20 69 6e 74 | 6f 20 61 20 6c 69 73 70 |LATE int|o a lisp|
|00000360| 20 66 6f 72 6d 2e 0a 0a | 54 68 65 20 62 61 63 6b | form...|The back|
|00000370| 71 75 6f 74 65 20 63 68 | 61 72 61 63 74 65 72 20 |quote ch|aracter |
|00000380| 69 73 20 6c 69 6b 65 20 | 74 68 65 20 71 75 6f 74 |is like |the quot|
|00000390| 65 20 63 68 61 72 61 63 | 74 65 72 20 69 6e 20 74 |e charac|ter in t|
|000003a0| 68 61 74 20 69 74 20 70 | 72 65 76 65 6e 74 73 20 |hat it p|revents |
|000003b0| 74 68 65 0a 74 65 6d 70 | 6c 61 74 65 20 77 68 69 |the.temp|late whi|
|000003c0| 63 68 20 66 6f 6c 6c 6f | 77 73 20 69 74 20 66 72 |ch follo|ws it fr|
|000003d0| 6f 6d 20 62 65 69 6e 67 | 20 65 76 61 6c 75 61 74 |om being| evaluat|
|000003e0| 65 64 2c 20 65 78 63 65 | 70 74 20 74 68 61 74 20 |ed, exce|pt that |
|000003f0| 62 61 63 6b 71 75 6f 74 | 65 0a 70 65 72 6d 69 74 |backquot|e.permit|
|00000400| 73 20 79 6f 75 20 74 6f | 20 65 76 61 6c 75 61 74 |s you to| evaluat|
|00000410| 65 20 70 6f 72 74 69 6f | 6e 73 20 6f 66 20 74 68 |e portio|ns of th|
|00000420| 65 20 71 75 6f 74 65 64 | 20 74 65 6d 70 6c 61 74 |e quoted| templat|
|00000430| 65 2e 20 20 41 20 63 6f | 6d 6d 61 20 63 68 61 72 |e.  A co|mma char|
|00000440| 61 63 74 65 72 0a 69 6e | 73 69 64 65 20 54 45 4d |acter.in|side TEM|
|00000450| 50 4c 41 54 45 20 69 6e | 64 69 63 61 74 65 73 20 |PLATE in|dicates |
|00000460| 74 68 61 74 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 |that the| followi|
|00000470| 6e 67 20 69 74 65 6d 20 | 73 68 6f 75 6c 64 20 62 |ng item |should b|
|00000480| 65 20 65 76 61 6c 75 61 | 74 65 64 2e 20 20 41 0a |e evalua|ted.  A.|
|00000490| 63 6f 6d 6d 61 20 63 68 | 61 72 61 63 74 65 72 20 |comma ch|aracter |
|000004a0| 6d 61 79 20 62 65 20 66 | 6f 6c 6c 6f 77 65 64 20 |may be f|ollowed |
|000004b0| 62 79 20 61 6e 20 61 74 | 2d 73 69 67 6e 2c 20 77 |by an at|-sign, w|
|000004c0| 68 69 63 68 20 69 6e 64 | 69 63 61 74 65 73 20 74 |hich ind|icates t|
|000004d0| 68 61 74 20 74 68 65 20 | 66 6f 72 6d 0a 77 68 69 |hat the |form.whi|
|000004e0| 63 68 20 66 6f 6c 6c 6f | 77 73 20 73 68 6f 75 6c |ch follo|ws shoul|
|000004f0| 64 20 62 65 20 65 76 61 | 6c 75 61 74 65 64 20 61 |d be eva|luated a|
|00000500| 6e 64 20 69 6e 73 65 72 | 74 65 64 20 61 6e 64 20 |nd inser|ted and |
|00000510| 22 73 70 6c 69 63 65 64 | 22 20 69 6e 74 6f 20 74 |"spliced|" into t|
|00000520| 68 65 0a 74 65 6d 70 6c | 61 74 65 2e 20 20 46 6f |he.templ|ate.  Fo|
|00000530| 72 6d 73 20 66 6f 6c 6c | 6f 77 69 6e 67 20 2c 40 |rms foll|owing ,@|
|00000540| 20 6d 75 73 74 20 65 76 | 61 6c 75 61 74 65 20 74 | must ev|aluate t|
|00000550| 6f 20 6c 69 73 74 73 2e | 0a 0a 48 65 72 65 20 69 |o lists.|..Here i|
|00000560| 73 20 68 6f 77 20 74 6f | 20 75 73 65 20 62 61 63 |s how to| use bac|
|00000570| 6b 71 75 6f 74 65 73 3a | 0a 20 20 28 73 65 74 71 |kquotes:|.  (setq|
|00000580| 20 70 20 27 62 0a 20 20 | 20 20 20 20 20 20 71 20 | p 'b.  |      q |
|00000590| 27 28 63 20 64 20 65 29 | 29 0a 20 20 60 28 61 20 |'(c d e)|).  `(a |
|000005a0| 2c 70 20 2c 40 71 29 20 | 20 20 2d 3e 20 28 61 20 |,p ,@q) |  -> (a |
|000005b0| 62 20 63 20 64 20 65 29 | 0a 20 20 60 28 61 20 2e |b c d e)|.  `(a .|
|000005c0| 20 62 29 20 20 20 20 20 | 20 2d 3e 20 28 61 20 2e | b)     | -> (a .|
|000005d0| 20 62 29 0a 20 20 60 28 | 61 20 2e 20 2c 70 29 20 | b).  `(|a . ,p) |
|000005e0| 20 20 20 20 2d 3e 20 28 | 61 20 2e 20 62 29 0a 0a |    -> (|a . b)..|
|000005f0| 54 68 65 20 58 45 6d 61 | 63 73 20 6c 69 73 70 20 |The XEma|cs lisp |
|00000600| 72 65 61 64 65 72 20 65 | 78 70 61 6e 64 73 20 6c |reader e|xpands l|
|00000610| 69 73 70 20 62 61 63 6b | 71 75 6f 74 65 73 20 61 |isp back|quotes a|
|00000620| 73 20 69 74 20 72 65 61 | 64 73 20 74 68 65 6d 2e |s it rea|ds them.|
|00000630| 0a 45 78 61 6d 70 6c 65 | 73 3a 0a 20 20 60 61 74 |.Example|s:.  `at|
|00000640| 6f 6d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |om      |       i|
|00000650| 73 20 72 65 61 64 20 61 | 73 20 28 62 61 63 6b 71 |s read a|s (backq|
|00000660| 75 6f 74 65 20 61 74 6f | 6d 29 0a 20 20 60 28 61 |uote ato|m).  `(a|
|00000670| 20 2c 62 20 2c 40 28 63 | 20 64 20 65 29 29 20 69 | ,b ,@(c| d e)) i|
|00000680| 73 20 72 65 61 64 20 61 | 73 20 28 62 61 63 6b 71 |s read a|s (backq|
|00000690| 75 6f 74 65 20 28 61 20 | 28 5c 2c 20 62 29 20 28 |uote (a |(\, b) (|
|000006a0| 5c 2c 5c 40 20 28 63 20 | 64 20 65 29 29 29 29 0a |\,\@ (c |d e)))).|
|000006b0| 20 20 60 28 61 20 2e 20 | 2c 70 29 20 20 20 20 20 |  `(a . |,p)     |
|000006c0| 20 20 20 20 69 73 20 72 | 65 61 64 20 61 73 20 28 |    is r|ead as (|
|000006d0| 62 61 63 6b 71 75 6f 74 | 65 20 28 61 20 5c 2c 20 |backquot|e (a \, |
|000006e0| 70 29 29 0a 0a 28 62 61 | 63 6b 71 75 6f 74 65 20 |p))..(ba|ckquote |
|000006f0| 54 45 4d 50 4c 41 54 45 | 29 20 69 73 20 61 20 6d |TEMPLATE|) is a m|
|00000700| 61 63 72 6f 20 74 68 61 | 74 20 70 72 6f 64 75 63 |acro tha|t produc|
|00000710| 65 73 20 63 6f 64 65 20 | 74 6f 20 63 6f 6e 73 74 |es code |to const|
|00000720| 72 75 63 74 20 54 45 4d | 50 4c 41 54 45 2e 0a 4e |ruct TEM|PLATE..N|
|00000730| 6f 74 65 20 74 68 61 74 | 20 74 68 69 73 20 69 73 |ote that| this is|
|00000740| 20 76 65 72 79 20 73 6c | 6f 77 20 69 6e 20 69 6e | very sl|ow in in|
|00000750| 74 65 72 70 72 65 74 65 | 64 20 63 6f 64 65 2c 20 |terprete|d code, |
|00000760| 62 75 74 20 66 61 73 74 | 20 69 66 20 79 6f 75 20 |but fast| if you |
|00000770| 63 6f 6d 70 69 6c 65 2e | 0a 54 45 4d 50 4c 41 54 |compile.|.TEMPLAT|
|00000780| 45 20 69 73 20 6f 6e 65 | 20 6f 72 20 6d 6f 72 65 |E is one| or more|
|00000790| 20 6e 65 73 74 65 64 20 | 6c 69 73 74 73 20 6f 72 | nested |lists or|
|000007a0| 20 76 65 63 74 6f 72 73 | 2c 20 77 68 69 63 68 20 | vectors|, which |
|000007b0| 61 72 65 20 60 61 6c 6d | 6f 73 74 20 71 75 6f 74 |are `alm|ost quot|
|000007c0| 65 64 27 2e 0a 54 68 65 | 79 20 61 72 65 20 63 6f |ed'..The|y are co|
|000007d0| 70 69 65 64 20 72 65 63 | 75 72 73 69 76 65 6c 79 |pied rec|ursively|
|000007e0| 2c 20 77 69 74 68 20 65 | 6c 65 6d 65 6e 74 73 20 |, with e|lements |
|000007f0| 70 72 65 63 65 64 65 64 | 20 62 79 20 63 6f 6d 6d |preceded| by comm|
|00000800| 61 20 65 76 61 6c 75 61 | 74 65 64 2e 0a 20 28 62 |a evalua|ted.. (b|
|00000810| 61 63 6b 71 75 6f 74 65 | 20 28 61 20 62 29 29 20 |ackquote| (a b)) |
|00000820| 20 20 20 20 3d 3d 20 28 | 6c 69 73 74 20 27 61 20 |    == (|list 'a |
|00000830| 27 62 29 20 20 0a 20 28 | 62 61 63 6b 71 75 6f 74 |'b)  . (|backquot|
|00000840| 65 20 28 61 20 5b 62 20 | 63 5d 29 29 20 3d 3d 20 |e (a [b |c])) == |
|00000850| 28 6c 69 73 74 20 27 61 | 20 28 76 65 63 74 6f 72 |(list 'a| (vector|
|00000860| 20 27 62 20 27 63 29 29 | 20 0a 0a 48 6f 77 65 76 | 'b 'c))| ..Howev|
|00000870| 65 72 2c 20 63 65 72 74 | 61 69 6e 20 73 70 65 63 |er, cert|ain spec|
|00000880| 69 61 6c 20 6c 69 73 74 | 73 20 61 72 65 20 6e 6f |ial list|s are no|
|00000890| 74 20 63 6f 70 69 65 64 | 2e 20 20 54 68 65 79 20 |t copied|.  They |
|000008a0| 73 70 65 63 69 66 79 20 | 73 75 62 73 74 69 74 75 |specify |substitu|
|000008b0| 74 69 6f 6e 2e 0a 4c 69 | 73 74 73 20 74 68 61 74 |tion..Li|sts that|
|000008c0| 20 6c 6f 6f 6b 20 6c 69 | 6b 65 20 28 5c 2c 20 45 | look li|ke (\, E|
|000008d0| 58 50 29 20 61 72 65 20 | 65 76 61 6c 75 61 74 65 |XP) are |evaluate|
|000008e0| 64 20 61 6e 64 20 74 68 | 65 20 72 65 73 75 6c 74 |d and th|e result|
|000008f0| 20 69 73 20 73 75 62 73 | 74 69 74 75 74 65 64 2e | is subs|tituted.|
|00000900| 0a 20 28 62 61 63 6b 71 | 75 6f 74 65 20 28 61 20 |. (backq|uote (a |
|00000910| 28 5c 2c 20 28 2b 20 78 | 20 35 29 29 29 29 20 3d |(\, (+ x| 5)))) =|
|00000920| 3d 20 28 6c 69 73 74 20 | 27 61 20 28 2b 20 78 20 |= (list |'a (+ x |
|00000930| 35 29 29 0a 0a 45 6c 65 | 6d 65 6e 74 73 20 6f 66 |5))..Ele|ments of|
|00000940| 20 74 68 65 20 66 6f 72 | 6d 20 28 5c 2c 5c 40 20 | the for|m (\,\@ |
|00000950| 45 58 50 29 20 61 72 65 | 20 65 76 61 6c 75 61 74 |EXP) are| evaluat|
|00000960| 65 64 20 61 6e 64 20 74 | 68 65 6e 20 61 6c 6c 20 |ed and t|hen all |
|00000970| 74 68 65 20 65 6c 65 6d | 65 6e 74 73 0a 6f 66 20 |the elem|ents.of |
|00000980| 74 68 65 20 72 65 73 75 | 6c 74 20 61 72 65 20 73 |the resu|lt are s|
|00000990| 75 62 73 74 69 74 75 74 | 65 64 2e 20 20 54 68 69 |ubstitut|ed.  Thi|
|000009a0| 73 20 72 65 73 75 6c 74 | 20 6d 75 73 74 20 62 65 |s result| must be|
|000009b0| 20 61 20 6c 69 73 74 3b | 20 69 74 20 6d 61 79 0a | a list;| it may.|
|000009c0| 62 65 20 60 6e 69 6c 27 | 2e 0a 0a 45 6c 65 6d 65 |be `nil'|...Eleme|
|000009d0| 6e 74 73 20 6f 66 20 74 | 68 65 20 66 6f 72 6d 20 |nts of t|he form |
|000009e0| 28 5c 2c 5c 2e 20 45 58 | 50 29 20 61 72 65 20 65 |(\,\. EX|P) are e|
|000009f0| 76 61 6c 75 61 74 65 64 | 20 61 6e 64 20 74 68 65 |valuated| and the|
|00000a00| 6e 20 61 6c 6c 20 74 68 | 65 20 65 6c 65 6d 65 6e |n all th|e elemen|
|00000a10| 74 73 0a 6f 66 20 74 68 | 65 20 72 65 73 75 6c 74 |ts.of th|e result|
|00000a20| 20 61 72 65 20 63 6f 6e | 63 61 74 65 6e 61 74 65 | are con|catenate|
|00000a30| 64 20 74 6f 20 74 68 65 | 20 6c 69 73 74 20 6f 66 |d to the| list of|
|00000a40| 20 70 72 65 63 65 64 69 | 6e 67 20 65 6c 65 6d 65 | precedi|ng eleme|
|00000a50| 6e 74 73 20 69 6e 20 74 | 68 65 20 6c 69 73 74 2e |nts in t|he list.|
|00000a60| 0a 54 68 65 79 20 6d 75 | 73 74 20 6f 63 63 75 72 |.They mu|st occur|
|00000a70| 20 61 73 20 74 68 65 20 | 6c 61 73 74 20 65 6c 65 | as the |last ele|
|00000a80| 6d 65 6e 74 20 6f 66 20 | 61 20 6c 69 73 74 20 28 |ment of |a list (|
|00000a90| 6e 6f 74 20 61 20 76 65 | 63 74 6f 72 29 2e 0a 45 |not a ve|ctor)..E|
|00000aa0| 58 50 20 6d 61 79 20 65 | 76 61 6c 75 61 74 65 20 |XP may e|valuate |
|00000ab0| 74 6f 20 6e 69 6c 2e 0a | 0a 41 73 20 61 6e 20 65 |to nil..|.As an e|
|00000ac0| 78 61 6d 70 6c 65 2c 20 | 61 20 73 69 6d 70 6c 65 |xample, |a simple|
|00000ad0| 20 6d 61 63 72 6f 20 60 | 70 75 73 68 27 20 63 6f | macro `|push' co|
|00000ae0| 75 6c 64 20 62 65 20 77 | 72 69 74 74 65 6e 3a 0a |uld be w|ritten:.|
|00000af0| 20 20 20 28 64 65 66 6d | 61 63 72 6f 20 70 75 73 |   (defm|acro pus|
|00000b00| 68 20 28 76 20 6c 29 0a | 20 20 20 20 20 60 28 73 |h (v l).|     `(s|
|00000b10| 65 74 71 20 2c 6c 20 28 | 63 6f 6e 73 20 2c 40 28 |etq ,l (|cons ,@(|
|00000b20| 6c 69 73 74 20 76 20 6c | 29 29 29 29 0a 6f 72 20 |list v l|)))).or |
|00000b30| 61 73 0a 20 20 20 28 64 | 65 66 6d 61 63 72 6f 20 |as.   (d|efmacro |
|00000b40| 70 75 73 68 20 28 76 20 | 6c 29 0a 20 20 20 20 20 |push (v |l).     |
|00000b50| 60 28 73 65 74 71 20 2c | 6c 20 28 63 6f 6e 73 20 |`(setq ,|l (cons |
|00000b60| 2c 76 20 2c 6c 29 29 29 | 0a 0a 46 6f 72 20 62 61 |,v ,l)))|..For ba|
|00000b70| 63 6b 77 61 72 64 73 20 | 63 6f 6d 70 61 74 69 62 |ckwards |compatib|
|00000b80| 69 6c 69 74 79 2c 20 6f | 6c 64 2d 73 74 79 6c 65 |ility, o|ld-style|
|00000b90| 20 65 6d 61 63 73 2d 6c | 69 73 70 20 62 61 63 6b | emacs-l|isp back|
|00000ba0| 71 75 6f 74 65 73 20 61 | 72 65 20 73 74 69 6c 6c |quotes a|re still|
|00000bb0| 20 72 65 61 64 2e 0a 20 | 20 20 20 20 4f 4c 44 20 | read.. |    OLD |
|00000bc0| 53 54 59 4c 45 20 20 20 | 20 20 20 20 20 20 20 20 |STYLE   |        |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 4e 45 57 |        |     NEW|
|00000be0| 20 53 54 59 4c 45 0a 20 | 20 20 20 20 28 60 20 28 | STYLE. |    (` (|
|00000bf0| 66 6f 6f 20 28 2c 20 62 | 61 72 29 20 28 2c 40 20 |foo (, b|ar) (,@ |
|00000c00| 62 69 6e 67 29 29 29 20 | 20 20 20 20 20 60 28 66 |bing))) |     `(f|
|00000c10| 6f 6f 20 2c 62 61 72 20 | 2c 40 62 69 6e 67 29 0a |oo ,bar |,@bing).|
|00000c20| 0a 42 65 63 61 75 73 65 | 20 6f 66 20 74 68 65 20 |.Because| of the |
|00000c30| 6f 6c 64 2d 73 74 79 6c | 65 20 62 61 63 6b 71 75 |old-styl|e backqu|
|00000c40| 6f 74 65 20 73 75 70 70 | 6f 72 74 2c 20 79 6f 75 |ote supp|ort, you|
|00000c50| 20 63 61 6e 6e 6f 74 20 | 75 73 65 20 61 20 6e 65 | cannot |use a ne|
|00000c60| 77 2d 73 74 79 6c 65 0a | 62 61 63 6b 71 75 6f 74 |w-style.|backquot|
|00000c70| 65 64 20 66 6f 72 6d 20 | 61 73 20 74 68 65 20 66 |ed form |as the f|
|00000c80| 69 72 73 74 20 65 6c 65 | 6d 65 6e 74 20 6f 66 20 |irst ele|ment of |
|00000c90| 61 20 6c 69 73 74 2e 20 | 20 50 65 72 68 61 70 73 |a list. | Perhaps|
|00000ca0| 20 73 6f 6d 65 20 64 61 | 79 20 74 68 69 73 0a 72 | some da|y this.r|
|00000cb0| 65 73 74 72 69 63 74 69 | 6f 6e 20 77 69 6c 6c 20 |estricti|on will |
|00000cc0| 67 6f 20 61 77 61 79 2c | 20 62 75 74 20 66 6f 72 |go away,| but for|
|00000cd0| 20 6e 6f 77 20 79 6f 75 | 20 73 68 6f 75 6c 64 20 | now you| should |
|00000ce0| 62 65 20 77 61 72 79 20 | 6f 66 20 69 74 3a 0a 20 |be wary |of it:. |
|00000cf0| 20 20 20 28 60 28 74 68 | 69 73 20 2c 77 69 6c 6c |   (`(th|is ,will|
|00000d00| 20 2c 40 66 61 69 6c 29 | 29 0a 20 20 20 20 28 28 | ,@fail)|).    ((|
|00000d10| 60 20 28 62 75 74 20 28 | 2c 20 74 68 69 73 29 20 |` (but (|, this) |
|00000d20| 77 69 6c 6c 20 28 2c 40 | 20 77 6f 72 6b 29 29 29 |will (,@| work)))|
|00000d30| 29 0a 54 68 69 73 20 69 | 73 20 61 6e 20 65 78 74 |).This i|s an ext|
|00000d40| 72 65 6d 65 6c 79 20 72 | 61 72 65 20 74 68 69 6e |remely r|are thin|
|00000d50| 67 20 74 6f 20 6e 65 65 | 64 20 74 6f 20 64 6f 20 |g to nee|d to do |
|00000d60| 69 6e 20 6c 69 73 70 2e | 1f 0a 28 64 65 66 61 6c |in lisp.|..(defal|
|00000d70| 69 61 73 20 27 62 61 63 | 6b 71 75 6f 74 65 20 27 |ias 'bac|kquote '|
|00000d80| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 74 65 6d 70 |(macro .| #[(temp|
|00000d90| 6c 61 74 65 29 20 22 c0 | 09 21 87 22 20 5b 62 71 |late) ".|.!." [bq|
|00000da0| 2d 70 72 6f 63 65 73 73 | 20 74 65 6d 70 6c 61 74 |-process| templat|
|00000db0| 65 5d 20 32 20 28 23 24 | 20 2e 20 37 39 33 29 5d |e] 2 (#$| . 793)]|
|00000dc0| 29 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)).(byte|-code ".|
|00000dd0| 11 c1 5c 6e 42 12 c3 14 | c4 5c 6e 42 12 c5 16 06 |..\nB...|.\nB....|
|00000de0| c6 5c 6e 42 12 c0 87 22 | 20 5b 75 6e 71 75 6f 74 |.\nB..."| [unquot|
|00000df0| 65 20 62 71 2d 63 6f 6d | 6d 61 2d 66 6c 61 67 20 |e bq-com|ma-flag |
|00000e00| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000e10| 74 20 75 6e 71 75 6f 74 | 65 2d 73 70 6c 69 63 69 |t unquot|e-splici|
|00000e20| 6e 67 20 62 71 2d 61 74 | 2d 66 6c 61 67 20 75 6e |ng bq-at|-flag un|
|00000e30| 71 75 6f 74 65 2d 6e 63 | 6f 6e 63 2d 73 70 6c 69 |quote-nc|onc-spli|
|00000e40| 63 69 6e 67 20 62 71 2d | 64 6f 74 2d 66 6c 61 67 |cing bq-|dot-flag|
|00000e50| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00000e60| 62 71 2d 70 72 6f 63 65 | 73 73 20 23 5b 28 66 6f |bq-proce|ss #[(fo|
|00000e70| 72 6d 29 20 22 c0 09 21 | 89 1a 40 1b 5c 6e 41 1c |rm) "..!|..@.\nA.|
|00000e80| 0b 0d 61 ab 86 c6 c7 09 | 5c 22 aa 90 0b 0e 08 61 |..a.....|\".....a|
|00000e90| ab 86 c6 c9 09 5c 22 aa | 84 ca 0b 0c 5c 22 2b 87 |.....\".|....\"+.|
|00000ea0| 22 20 5b 62 71 2d 70 72 | 6f 63 65 73 73 2d 32 20 |" [bq-pr|ocess-2 |
|00000eb0| 66 6f 72 6d 20 66 6c 61 | 67 2d 72 65 73 75 6c 74 |form fla|g-result|
|00000ec0| 20 66 6c 61 67 20 72 65 | 73 75 6c 74 20 62 71 2d | flag re|sult bq-|
|00000ed0| 61 74 2d 66 6c 61 67 20 | 65 72 72 6f 72 20 22 2c |at-flag |error ",|
|00000ee0| 40 20 61 66 74 65 72 20 | 60 20 69 6e 20 66 6f 72 |@ after |` in for|
|00000ef0| 6d 3a 20 25 73 22 20 62 | 71 2d 64 6f 74 2d 66 6c |m: %s" b|q-dot-fl|
|00000f00| 61 67 20 22 2c 2e 20 61 | 66 74 65 72 20 60 20 69 |ag ",. a|fter ` i|
|00000f10| 6e 20 66 6f 72 6d 3a 20 | 25 73 22 20 62 71 2d 70 |n form: |%s" bq-p|
|00000f20| 72 6f 63 65 73 73 2d 31 | 5d 20 34 5d 29 0a 28 64 |rocess-1|] 4]).(d|
|00000f30| 65 66 61 6c 69 61 73 20 | 27 62 71 2d 76 65 63 74 |efalias |'bq-vect|
|00000f40| 6f 72 2d 63 6f 6e 74 65 | 6e 74 73 20 23 5b 28 76 |or-conte|nts #[(v|
|00000f50| 65 63 29 20 22 c0 09 47 | 1a 1b 5c 6e c4 56 ab 8b |ec) "..G|..\n.V..|
|00000f60| 5c 6e 53 12 09 5c 6e 48 | 0b 42 13 aa 70 0b 2a 87 |\nS..\nH|.B..p.*.|
|00000f70| 22 20 5b 6e 69 6c 20 76 | 65 63 20 6e 20 63 6f 6e |" [nil v|ec n con|
|00000f80| 74 65 6e 74 73 20 30 5d | 20 32 5d 29 0a 28 64 65 |tents 0]| 2]).(de|
|00000f90| 66 61 6c 69 61 73 20 27 | 62 71 2d 70 72 6f 63 65 |falias '|bq-proce|
|00000fa0| 73 73 2d 32 20 23 5b 28 | 63 6f 64 65 29 20 22 c0 |ss-2 #[(|code) ".|
|00000fb0| 09 21 ab 90 c2 c3 09 21 | 21 1c c5 c6 0c 40 0c 41 |.!.....!|!....@.A|
|00000fc0| 5c 22 29 42 87 09 3a ac | 98 09 ac 84 c7 89 42 87 |\")B..:.|......B.|
|00000fd0| 09 a7 ac 85 09 c8 61 ab | 84 c8 09 42 87 c9 09 42 |......a.|...B...B|
|00000fe0| 87 09 40 0e 5c 6e 61 ab | 87 0e 0b 09 41 40 42 87 |..@.\na.|....A@B.|
|00000ff0| 09 40 0e 0c 61 ab 87 0e | 0d 09 41 40 42 87 09 40 |.@..a...|..A@B..@|
|00001000| 0e 0e 61 ab 86 cf 09 41 | 40 21 87 09 40 0e 10 61 |..a....A|@!..@..a|
|00001010| ac 87 09 40 0e 11 61 ab | 88 c2 d2 09 41 40 21 21 |...@..a.|....A@!!|
|00001020| 87 c2 09 40 21 89 1e 13 | 40 1e 14 0e 13 41 1e 15 |...@!...|@....A..|
|00001030| c2 09 41 21 89 1c 40 1e | 16 0c 41 1e 17 0e 16 0e |..A!..@.|..A.....|
|00001040| 0b 61 ab 85 d8 d9 09 5c | 22 88 0e 16 0e 0d 61 ab |.a.....\|".....a.|
|00001050| 85 d8 da 09 5c 22 88 0e | 14 0e 0b 61 ab a6 0e 16 |....\"..|...a....|
|00001060| ac 87 cf 0e 15 21 82 61 | 01 db 0e 16 db 61 ab 87 |.....!.a|.....a..|
|00001070| 0e 15 0e 17 42 aa 89 0e | 15 c6 0e 16 0e 17 5c 22 |....B...|......\"|
|00001080| 44 42 82 61 01 0e 14 0e | 0d 61 ab a4 0e 16 ac 86 |DB.a....|.a......|
|00001090| cf 0e 15 21 aa ff dc 0e | 16 dc 61 ab 87 0e 15 0e |...!....|..a.....|
|000010a0| 17 42 aa 89 0e 15 c6 0e | 16 0e 17 5c 22 44 42 aa |.B......|...\"DB.|
|000010b0| e5 0e 16 ac 98 0e 14 dd | 73 ab 87 c9 0e 15 43 42 |........|s.....CB|
|000010c0| aa d4 de c6 0e 14 0e 15 | 5c 22 43 42 aa c9 0e 16 |........|\"CB....|
|000010d0| df 73 ab a0 0e 14 e0 73 | ab 89 c9 0e 15 0e 17 42 |.s.....s|.......B|
|000010e0| 42 aa b4 e1 c6 0e 14 0e | 15 5c 22 c6 0e 16 0e 17 |B.......|.\".....|
|000010f0| 5c 22 44 42 aa a3 c6 0e | 14 0e 15 5c 22 16 15 0e |\"DB....|...\"...|
|00001100| 16 e2 73 ab 8a 0e 16 0e | 15 0e 17 42 42 aa 8b e1 |..s.....|...BB...|
|00001110| 0e 15 c6 0e 16 0e 17 5c | 22 44 42 2e 06 87 22 20 |.......\|"DB..." |
|00001120| 5b 76 65 63 74 6f 72 70 | 20 63 6f 64 65 20 62 71 |[vectorp| code bq|
|00001130| 2d 70 72 6f 63 65 73 73 | 2d 32 20 62 71 2d 76 65 |-process|-2 bq-ve|
|00001140| 63 74 6f 72 2d 63 6f 6e | 74 65 6e 74 73 20 64 66 |ctor-con|tents df|
|00001150| 6c 61 67 2d 64 20 76 65 | 63 74 6f 72 20 62 71 2d |lag-d ve|ctor bq-|
|00001160| 70 72 6f 63 65 73 73 2d | 31 20 6e 69 6c 20 74 20 |process-|1 nil t |
|00001170| 71 75 6f 74 65 20 62 71 | 2d 61 74 2d 6d 61 72 6b |quote bq|-at-mark|
|00001180| 65 72 20 62 71 2d 61 74 | 2d 66 6c 61 67 20 62 71 |er bq-at|-flag bq|
|00001190| 2d 64 6f 74 2d 6d 61 72 | 6b 65 72 20 62 71 2d 64 |-dot-mar|ker bq-d|
|000011a0| 6f 74 2d 66 6c 61 67 20 | 62 71 2d 63 6f 6d 6d 61 |ot-flag |bq-comma|
|000011b0| 2d 6d 61 72 6b 65 72 20 | 62 71 2d 63 6f 6d 6d 61 |-marker |bq-comma|
|000011c0| 20 62 71 2d 62 61 63 6b | 71 75 6f 74 65 2d 6d 61 | bq-back|quote-ma|
|000011d0| 72 6b 65 72 20 62 71 2d | 62 61 63 6b 74 69 63 6b |rker bq-|backtick|
|000011e0| 2d 6d 61 72 6b 65 72 20 | 62 71 2d 70 72 6f 63 65 |-marker |bq-proce|
|000011f0| 73 73 20 61 66 6c 61 67 | 2d 61 20 61 66 6c 61 67 |ss aflag|-a aflag|
|00001200| 20 61 20 64 66 6c 61 67 | 20 64 20 65 72 72 6f 72 | a dflag| d error|
|00001210| 20 22 2c 40 20 61 66 74 | 65 72 20 64 6f 74 20 69 | ",@ aft|er dot i|
|00001220| 6e 20 25 73 22 20 22 2c | 2e 20 61 66 74 65 72 20 |n %s" ",|. after |
|00001230| 64 6f 74 20 69 6e 20 25 | 73 22 20 61 70 70 65 6e |dot in %|s" appen|
|00001240| 64 20 6e 63 6f 6e 63 20 | 28 71 75 6f 74 65 20 74 |d nconc |(quote t|
|00001250| 20 6e 69 6c 29 20 6c 69 | 73 74 20 27 74 20 28 71 | nil) li|st 't (q|
|00001260| 75 6f 74 65 20 74 20 6e | 69 6c 29 20 6c 69 73 74 |uote t n|il) list|
|00001270| 2a 20 28 6c 69 73 74 20 | 6c 69 73 74 2a 29 5d 20 |* (list |list*)] |
|00001280| 36 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 62 |6]).(def|alias 'b|
|00001290| 71 2d 63 6f 6d 6d 61 20 | 23 5b 28 63 6f 64 65 29 |q-comma |#[(code)|
|000012a0| 20 22 08 3a ac 98 08 ac | 84 c1 89 42 87 08 a7 ac | ".:....|...B....|
|000012b0| 85 08 c2 61 ab 84 c2 08 | 42 87 0b 08 42 87 08 40 |...a....|B...B..@|
|000012c0| c4 61 ab 87 08 40 08 41 | 40 42 87 08 40 c5 73 ab |.a...@.A|@B..@.s.|
|000012d0| 86 08 40 08 41 42 87 08 | 40 c6 61 ab 85 c7 08 41 |..@.AB..|@.a....A|
|000012e0| 42 87 0b 08 42 87 22 20 | 5b 63 6f 64 65 20 6e 69 |B...B." |[code ni|
|000012f0| 6c 20 74 20 62 71 2d 63 | 6f 6d 6d 61 2d 66 6c 61 |l t bq-c|omma-fla|
|00001300| 67 20 71 75 6f 74 65 20 | 28 61 70 70 65 6e 64 20 |g quote |(append |
|00001310| 6c 69 73 74 20 6c 69 73 | 74 2a 20 6e 63 6f 6e 63 |list lis|t* nconc|
|00001320| 29 20 63 6f 6e 73 20 6c | 69 73 74 2a 5d 20 32 5d |) cons l|ist*] 2]|
|00001330| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 62 71 2d |).(defal|ias 'bq-|
|00001340| 70 72 6f 63 65 73 73 2d | 31 20 23 5b 28 66 6c 61 |process-|1 #[(fla|
|00001350| 67 20 74 68 69 6e 67 29 | 20 22 08 09 61 ac 85 08 |g thing)| "..a...|
|00001360| c2 73 ab 82 0b 87 08 c4 | 61 ab 84 c4 0b 44 87 08 |.s......|a....D..|
|00001370| c5 61 ab 85 c6 c7 0b 45 | 87 08 c8 b7 41 0b 42 87 |.a.....E|....A.B.|
|00001380| 22 20 5b 66 6c 61 67 20 | 62 71 2d 63 6f 6d 6d 61 |" [flag |bq-comma|
|00001390| 2d 66 6c 61 67 20 28 74 | 20 6e 69 6c 29 20 74 68 |-flag (t| nil) th|
|000013a0| 69 6e 67 20 71 75 6f 74 | 65 20 76 65 63 74 6f 72 |ing quot|e vector|
|000013b0| 20 61 70 70 6c 79 20 28 | 66 75 6e 63 74 69 6f 6e | apply (|function|
|000013c0| 20 76 65 63 74 6f 72 29 | 20 28 28 63 6f 6e 73 20 | vector)| ((cons |
|000013d0| 2e 20 63 6f 6e 73 29 20 | 28 6c 69 73 74 2a 20 2e |. cons) |(list* .|
|000013e0| 20 62 71 2d 6c 69 73 74 | 2a 29 20 28 6c 69 73 74 | bq-list|*) (list|
|000013f0| 20 2e 20 6c 69 73 74 29 | 20 28 61 70 70 65 6e 64 | . list)| (append|
|00001400| 20 2e 20 61 70 70 65 6e | 64 29 20 28 6e 63 6f 6e | . appen|d) (ncon|
|00001410| 63 20 2e 20 6e 63 6f 6e | 63 29 29 5d 20 33 5d 29 |c . ncon|c))] 3])|
|00001420| 0a 23 40 36 33 20 52 65 | 74 75 72 6e 73 20 61 20 |.#@63 Re|turns a |
|00001430| 6c 69 73 74 20 6f 66 20 | 69 74 73 20 61 72 67 75 |list of |its argu|
|00001440| 6d 65 6e 74 73 20 77 69 | 74 68 20 6c 61 73 74 20 |ments wi|th last |
|00001450| 63 6f 6e 73 20 61 20 64 | 6f 74 74 65 64 20 70 61 |cons a d|otted pa|
|00001460| 69 72 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ir...(de|falias '|
|00001470| 62 71 2d 6c 69 73 74 2a | 20 27 28 6d 61 63 72 6f |bq-list*| '(macro|
|00001480| 20 2e 20 23 5b 28 26 72 | 65 73 74 20 61 72 67 73 | . #[(&r|est args|
|00001490| 29 20 22 c0 09 21 89 11 | 40 1a 09 41 89 11 ab 8c |) "..!..|@..A....|
|000014a0| c3 09 40 5c 6e 45 12 09 | 41 89 11 ac 74 5c 6e 29 |..@\nE..|A...t\n)|
|000014b0| 87 22 20 5b 72 65 76 65 | 72 73 65 20 61 72 67 73 |." [reve|rse args|
|000014c0| 20 72 65 73 75 6c 74 20 | 63 6f 6e 73 5d 20 34 20 | result |cons] 4 |
|000014d0| 28 23 24 20 2e 20 35 31 | 35 38 29 5d 29 29 0a 28 |(#$ . 51|58)])).(|
|000014e0| 70 72 6f 76 69 64 65 20 | 27 62 61 63 6b 71 75 6f |provide |'backquo|
|000014f0| 74 65 29 0a             |                         |te).    |        |
+--------+-------------------------+-------------------------+--------+--------+